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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor dr 
COMMON, as to the accuracy and functioning of the program 
and related program material, nor shall the fact of distribution 
constitute any such warranty, and no responsibility is assumed 
by the contributor or COMMON, in connection therewith. 



COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

©Program No. Date 



Program Name:_ 



1. Does the abstract adequately describe what the program is and what Yes No_ 

it does ? 

C om m ent . 

2. Does the program do what the abstract says? Yes Nq_ 

Comment 



3. Is the description clear, understandable, and adequate? Yes No_ 

C om m ent 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m ent t 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes Nq_ 

C om m ent 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

C om m ent 

o 

Does the object program run satisfactorily? Yes No_ 

C om m ent 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

C om m ent 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

C om m ent 

9. Were all necessary parts of the program received? Yes Nq_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 



Dayton, Ohio 45432 Users Group Code 



THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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GENERAL EDIT SUBROUTINE 
WITH NEW MACRO INSTRUCTION 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 



ARRY SALUS 
ELECTRONIC DATA PROCESSING INC. 
60 CORAL CENTER 

FORT LAUDERDALE, FLORIDA APRIL 1965 



DECK KEY 



Source Deck 

Object Subroutine Deck 
with header and trailer 
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1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. TITIiii:; General EDIT Subroutine. Subject Classification: 1-6 

2. Author, Organization: Larry D. Salus, Electronic Data 
Processing, Inc. 

Date: May 7, 1965. Users Group Membership Code: 1400 

3. Direct Inquiries to: Larry Salus - Electronic Data Processing, 
Inc., 60 Coral Center, Fort Lauderdale, Fla., 

Phont: 305-565-1873. 

4. Description/Purpose: (5. Method, o. Restriction/Range, When 
Applicable) : To provide the 1620 SPS Programmer with an 
ease of editing similar to the hardware EDIT of the IBM 1401 
Systems. Incorporated is a new Macro instruction with three 
operands which specifies the field to be edited, where the 
edited field is to be stored and the format of the editing 
desired. 

7. Specifications: 

a. Storage used by program: 1,418 

b. Equipment required by program: Card; TNS,TNF,MF; Indirect 
Addressing; 1620 Model I 

Can program be used on lesser machine? No. 

c. programmed in: SP035 

d. Type of Frogrmm: Subroutine for use with SP-035 

8 The General EDIT Subroutine generates its own linkage and re- 
turn address and therefore does not need the use of IBM * s "Pick' 
Subroutine. 
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PURPOSE* 

TO PROVIDE THE 1620 SPS PROGRAMMER WITH AN EASE OF EDITING SIMILAR TO 
THE HARDWARE EDIT OF THE IBM 1401 SYSTEMS. INCORPORATED IS A NEW MACRO 
INSTRUCTION WITH THREE OPERANDS WHICH SPECIFIES THE FIELD TO BE EDITED, 
WHERE THE EDITED FIELD IS TO BE STORED* AND THE FORMAT OF THE EDITING 
DESIRED. 

MACHINE CONFIGURATION* 



EDIT SUBROUTINE 
OP CODE FDIT COL. 12-16 

A OPERAND THE ADDRESS OF THE UNITS POSITION OF THE NUMERICAL 

FIELD TO BE EDITED WITH HIGH ORDER FLAG 
B OPERAND ADDRESS OF THE OUTPUT AREA 
C OPERAND ADDRESS OF THE CONTROL WORD 

FORMAT - F:OIT A,R,C 

NOTE. IHFkE MUST NOT BE A COMMA AFTER THE C OPERAND IN ANY MACRO 



THE GENERAL EDIT SUBROUTINE WAS DESIGNED FOR A 1620-1443 SYSTEM, BUT IS 
APPLICABLE FOR OUTPUT ON CARDS » TAPE, AND TYPEWRITER AS WELL AS THE PRINTER 

BASIC PROGRAM MATERIAL. 

TO USE THE GENERAL EDIT SUBROUTINE A SLIGHT MODIFICATION OF THE SPS 
PROCESSER IS NECESSARY. INSERT A CARD IN THE FOLLOWING FORMAT NINE CARDS 
FROM THE REAR OF SP-020 OR SP-035. 

COL. COL. 

1-8 M5444963 63-64 -1 

9-10 18 65-69 J8013 

11 p 70-74 J8024 

12 

13-62 BLANKS 

CONSULT YOUR IBM MANUAL TO INTERFACE THE NEW SUBROUTINE INTO THE 
GENERAL SUBROUTINE DECK. 



CONTROL WORO. 

CONTAINS FORMAT OF 601 It MJMBER 

1. THE CONTROL WORD MUST BE DEFi'iED AS A DAC. 

2. MAXIMUM LENGTH OF THE CONTROL WORD IS 20 ALPHA CHARACTERS. 
NOTE. THE CONTROL WCRD CAN BE LARGER BUT NOT SMALLER THAN THE 

FIELD TO BE EDITED. 

3. ZEROS IN THE CONTROL WCRD INDICATE POSITIONS TO BE FILLED. 

4. ANY SPECIAL OR ALPHA CHARACTER MAY BE PUT IN THE CONTROL WORD 
EXCEPT AN EQUAL SIGN, THIS WOULD BE TREATED AS AN 3. 

5. IF A SPECIAL OR ALPHA CHARACTER APPEARS IN THE FIRST CHARACTER 

OF THE DAC, THIS WILL INDICATE A FLOATING SPECIAL OR ALPHA CHARACTER. 

6. IF AN a SIGN APPEARS IN THE CONTROL WORD, THIS INDICATES THAT 
CHARACTERS TO THE RIGHT OF THE 3 SIGN WILL NOT BE SUPPRESSED 

7. THERE MUST BE THREE POSITIONS TO THE RIGHT OF THE UNITS POSITION 
OF THE CONTROL WORD. 

CHARACTERS IN ANY OF THESE THREE POSITIONS WILL APPEAR WHEN THE 
NUMBER TO BE EDITED IS NEGATIVE. 

8. FOLLOWING THE THIRD POSITION, AS ABOVE, THERE MUST BE AN ALPHA 

RECORD MARK. THE RECORD MARK WILL NOT BE TRANSFERRED TO THE OUTPUT AREA 



CONTROL WORD EXAMPLE.. 



CONTRLDAC 14, $00 ,003.00 CR3, 
I 2 5 3 64 7 8 

EXAMPLES 

ED I TNUM8»0UTPUT,C ONTR L 
WILL BE ASSEMBLED AS. 

TFM PICK+ll,*+23» 
B SUBR, 
D0RG*-4, 
. DSA NUMB, OUTPUT, CONTR L 

EXAMPLE 1. 

NUMB 047531 

CONTRL- DAC 18 , $00 ,000 ,005). 00 CR?, 

RESULT- $475.31 OUTPUT IS THE ADDRESS OF THE UNITS POSITION 
IF NUMB WAS NEGATIVE- $475.31 CR THE R IS IN OUTPUT+6 

EXAMPLE2. 

NUMB- -0000000 
CONTRL- DAC 17,00,000,003.00 CR3, 
RESULT- .00 

WITHOUT THE 3 BEFORE THE DECIMAL POINT THE EDITED FIELD WOULD 
CONTAIN ALL BLANKS. 
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EXAMPLE3. 

NUMB 012345 

CONTRL- DAC 19 ,03ANS00 ,000 . 00*NF r ,a\ , 

RESULT- ANSOO, 123.45* 
IF NUMR WAS NEGATIVE— ANSOO ,123. 5*NEG 

FXAMPLE4. 

NUMB- -52565 
CONTRL- DAC 12,00/00/00 3, 
RESULT 5/25/65 

TIME 

THE TIME OF THE EDIT MACRC HAS TWO FACTORS. 

1. THF LENGTH OF THE FIELD TO BE EDITED 

2. THE TYPE OF EDITING SPECIFED 

EXAMPLE. J2345 WITH $0, 00^.00 CR 
EDITING THIS FIELD TAKES 85 MILLISECONDS., 

TO MODIFY EDIT SUBROUTINE TC HANDLE FIELDS LARGER THAN THE 20 SPECIFIED, 
CHANGE THE LENGTH OF THE THREF DC S , WORK, C f JN , K LEAR AND 
THE DSS STORE. FOR EVERY SINGLE INCREMENT OF WORK, INCREMENT STORE, 
CON, AND K LEAR BY TWO. ALSO MAKE THE NECESSARY CHANGES TO THE LAST 
TWO TRANSMIT FIELDS IN THE RESET ROUTINE. 

THE EDIT SUBROUTINE CALCULATES ITS CWN LINKAGE AND RETURN ADDRESS 

AND THEREFORE DOES NOT NEED THE USE OF THE IBM -PICK- SUBROUTINE. 
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* EDIT SUBROUTINE 

■■« DATED MARCH 19*5 

* PROGRAMHED BY LARKY S ALUS 

FOR ELECTRfJNIC DATA PROCESSING INC. 

* FORT LAUDERDALE, FLORIDA 
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00040 




05030 


COM 


DC 


40,0, 


06430 




00040 






K LEAR 


DC 


40,0, 


05000 












OEND 


PICK, 



o 



PAGE 4 



PICK 05000 
DIGIT 05300 
RFC 05516 
TD 05644 
OUTPUT 05836 
NOSNIG 06080 
STORE 06311 



LOOK 05168 
BNR 05324 
A OF LD 05551 
NEG 05667 
EOF LD 05883 
RE TU 06112 
CON 06390 



MOD 05188 

AM 05368 

SET 05588 

OUT 05688 

CUTP 05928 

RFSFT 06200 

KLFAR 06430 



FOUND 05208 
8D 05388 
SEC 05600 
SANCH 05796 
PUT 05987 
EXIT 06284 



2ER 0524 
CONTRL 0549 
CK 0563 
RE COM 0580 
OUTPU 0601 
WORK 0631 



<3 



© 



o 



TROUBLE SHOOTING 

FOR REASONS OF CORE AND TIME THE EDIT SUBROUTINE DOES NOT CHECK 
FOR ERRORS IN FORMAT. IN CASE OF A CHECK STOP WITHIN THE SUBROUTINE 
GO OVER THE FOLLOWING CHECK LIST. 

1. THERE MUST NOT BE A. COMMA AFTER THE C OPERAND ♦ 

2. IS THE CONTROL WORD DEFINED AS A DAC . 

3. IS THERE A RECORD MARK IN THE LAST POSITION OF THE CONTROL WORD. 

4. HAVE THE THREE POSITIONS TO THE RIGHT OF THE RECORD MARK 8EEN 
ALLOWED FOR NEGATIVE NUMBER S. 

5. ARE THERE AS MANY OR MORE ZEROS IN THE CONTROL WORD AS NUMERICAL 
POSITIONS OF THE FIELD TO BE EDITED. 



COMPUTER 
TECHNOLOGY 



© 




IO 



J430J8 

-00000000000000000000000000000000000000 00000000000 

L305243 00000K0055510 5011K00588 30 501JJ10 5 551000-5K 005 9*7 05 55 J 

J 105 5 5 100O-5KO054950555 J J 10 555 1000-1 K 0062 900555 1 KO063 1 00588 L 

J205495000-1 L 30566700000 J605376000 -OP JO 5667 063 10MM05 188 -63 10 

M90520800000 

J205179000-1M905 16800000 

ML 053 0005 17R J 105 179000-1 L20 51 7R0OO0O JM0 51 79-63 1 0M705 2 080 12 00 
ML 05300063 10L J06 3110 549N 

-oooooooooooooooooooo oooooooooooooooooo on 000 000000 

M90608000000 

J005 1 79-63 10LJ0631 10 549NMN0 53 44-63 12M90 55 1600000 
ML 053 88 053 3N J 105 33 5000 -2M 1053 76000 -1 M90 5324 0000 

J 20 53 3 5000 - 1KN05 43 40 533N J 10 533 5000 -1M30 53 5 6 003 07 J 5 0536 8 0001 
J 5053 3N 00000 J 20 5 335 000 - 1J 50 533N0000 7 I 20 5? A3 00000 

-0000 

J105335000-1M905 35600000 

J 50536800004 J20533 5 000-7 L20 533 N00000 

-0000 

J205335000-1J205376000-4 

-000000000000000000000000000000 0000000000000000000 
K0063900533NJ005699-6390MMO 5688-63 10 J 005802- 5644L3 056 1J0000O 
M90568800000 

J105699000-1L20569ROOOOOJ005802-5600M90583 600000 

4J 00000 -6390J205699000-1KN057460569RJ105699000-1M305804 00303 

KN0569R0561JJ205611000-1J205699000-2J2053 76000-1M90560000000 

J205699000-2J205376000-1M90568800000 

MM0592805243J405376000-0 

-0000000000000000000000000000000000000000000000000 

M70591601100L30569R00000 

-0000 



J205699000-2J205376000-1M90584800000 

L2 0569R00O00 J 105 495 000-1 KD0563 50 549N J40 5635000P0M60601 201200 

L30569ROOOOO 

-0000 

J2056 99000-1K00569R05635K00598P06390MM0620005667J 10533 5000-6 

J 1 05987000 -6K005 98 P0 533MM90 6200 00000 
J60 55 89000M9J0055 94-6 112M90 532400000 

J 605589000 J6J005 594-5699 
-0000000000000000000000000 

jn 05 699 -6389 J 205 376 000- 1 MMO 6 18 00 5243 M90 5 83600000 
J 606390000-0M9060 1200000 

Jn05179-6310J005335-6312J005611-6310J00 5699-6390K 00639006430 

<0063 10064 10K00635 006430490000000000 

-0000000000000000000 

-000000000000000000000000000000000000000 
-000000 000000000000000000000000 000000000 
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Source L\<£T . 

* EDIT SUBROUTINE 

* DATED MARCH 1965 

* PROGRAMMED BY LARRY SALUS 

* FOR ELECTRONIC DATA PROCESSING INC. 

* FORT LAUDERDALEt FLORIDA 





D0RG5 000, 




DC 


50,0,350, 


PICK 


CF 


ZER i*-* t 0» 




TF 


ADFLD,PICK+11,01, 




TF 


EDFLD,PICK+11,0111, 


01030 


AM 


ADFLD, 5,010, 


01040 


TF 


PUT,ADFLD,0111, 


01050 


AM 


AOFLD, 5,010, 


01 060 


TF 


CONTR L, ADF LD,0111, 




AM 


ADFLD, 1,010, 




TF 


EXIT+6,ADF LD,01, 


01 070 


TF 


WORK, EDFLD, 0111, 




SM 


CONTR L, 1,0 10, 




CF 


NEGtfOt 




TFM 


AM +8, 0,0 10, 




MF 


NEG,W0RK,01, 


* 








THIS FINDS FIRST SNIG 


* 






01080L00K 


BNF 


MOO, WORK ,017 , 


01090 


B 


FOUND , ,0 , 




D0RG*-4, 


01100MGD 


SM 


LOOK+ll, 1,010, 


Oil 10 


B 


LOOK, ,0, 



D0RG*-4, 

01120FOUND BD DIGIT, LOOK+1 1,0111, 

13 



o 



01130 AM LOOK+ll, 1,010, 

SF LOOK+ll, ,06, 
ZER OS 0,*, 
01150 CM LOOK+ll, WORK, 017, 

01160 BNZ FOUND, ,0, 

BD DIGIT,W0RK,01, 

TR STORE, CONTRLtOlllt 

DC 50,0,350, 
01170 B NOSNIG,,0, 

D0RG*-4, 

011800IGIT TFM LOOK+ll, WORK, 017, 
02010 TR STORE, CONTRL, 0111, 

* 

* THIS FINDS LOW ORDER POSITION OF CONTROL FIELD 

* TESTS FOR AMY LEADING ZEROS 
* 

BNR BNR *+20,ST0RE+l,017, 
B REC,,0, 
D0RG*-4, 

BD BD,BNR+11,0111, 
AM BNR+11,2,010, 
AM NOP *+8, 1,010, 
B BNR,,0, 
D0RG*-4, 
BD SM BNR+11, 1,010, 

TD *+34, BNR+11, 0111, 

AM BNR+11, 1,010, 

BD AM-12, 307,0, 

TDM AM, 1,0, 

TDM BNR+11, 0,06, 

SM BNR+11,1,010, 



02070 

SET 
02080SEC 



CK 



TOM BNR+11, 7, 06, 
SF ZER,,0, 
CONTRL DC 5,0,*, 

AM BNR+11, 1,010, 
B AM-12,,0, 
D0RG*-4, 
REC TOM AM, 4,0, 

SM BNR + 11, 7, 010, 
SF BNR+11, ,06, 
AOFLD OC 5,0,*, 

SM BNR+11, 1,010, 
SM AM+8, 4,0 10 
DC 50,0,350, 
TF CON, BNR+11, 0111, 
TFM OUT+11, CON, 017, 
BNF OUT, WORK, 017, 
TFM SANCH+6,T0,017, 
CF SEC+11,,06, 
DS 0,*, 
B OUT,,0, 
D0RG*-4, 
TO AM OUT+11, 1,010, 

SF OUT+11,, 06, 
N6G DS 0,*, 

TFM SANCH+6,SEC,017, 
B OUTPUT,, 0, 
D0RG*-4, 



OUT 



THIS FILLS IN THE CONTROL FIELD 



NOP *-*,C0N,17, 



15 



SM OUT+11, 1,010, 

TD *+34, OUT+11, 0111, 

AM OUT+11, 1,010, 

BD RE COM* 303,0, 

TD 0UT+11,SEC+11, 01611, 

SM SEC+11, 1,010, 

SM OUT+11, 2,010, 

SM AM+8, 1,010 
SANCH R SEC,,0, 

D0RG*-4, 
R6C0M SM OUT+11, 2, 010, 

SM AM+8, 1,010, 

B OUT,,0, 

D0RG*-4, 
OUT PUT BN F 0UTP,ZER,01, 

CM AM+8, 0,010, 

DC 50,0,350, 

BNH OUTP-12,,0, 

CF OUT+11, ,06, 
EDFLD DC 5,0,*, 

SM OUT+11, 2,010, 

SM AM+8, 1,010, 

B OUTPUT+12, ,0, 

D0RG*-4, 

SF OUT+11,, 06, 

* 

* TESTS FOR A DOLLAR SIGN 



* 



OUTP AM CONTRL, 1,010, 

TF CK, CONTRL, 0111, 
CM CK,70,010, 
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BE OUTPU,, 0, 

CF OUT+11,,06, 

PUT OC 5,0,*, 

SM OUT+11, 1,010, 

TF OUT+11, CK,016, 

* PUTS EDITED FIELD IN OUTPUT AREA 
# 

OUTPU TF PUT, CON, 016, 
BNF RESET, NEG, 01, 
AM BNR+11,6,010, 
AM PUT, 6, 010, 
TF PUT, BNR+11, 01611, 
03060 B RESET, ,0, 

D0RG*-4, 

* 

* IF NO SNIG DIGIT IT IS HANDLED HERE 
# 

NOSNIGTFM SE T*l, 49 ,010, 

TFM S6T*6,RETU,017, 

B BNR,,0, 

D0RG*-4, 
RETU TFM SET+1, 16,010, 

TFM SET+6,0UT*11,017, 

DC 26,0,326, 

TFM 0UT+llfC0N-l f 0l7t 

SM AM*8 f l,010, 

BNF *+20,ZER,01, 

B OUTPUT , ,0, 

D0RG*-4, 

TFM CON, 0,010, 



17 



B OUTPU , ,0 , 
D0RG*-4, 

04030RESET TFM LOOK+ 1 1 , WORK , 1 7 , 

TFM BNR+11,ST0RE+1,017, 

04050 TFM SEC+11, WORK, 017, 

04060 TFM OUT+11, CON, 017, 

TF C0N,KLEAR,01, 
TF WORK,KLEAR-20,01, 
TF ST0RE+39,KLEAR,01, 
EXIT B 

D0RG*-4, 

05010W0RK DC 20,0, 

05020ST0RE DSS 40, 

05030C0N DC 40,0, 
KLEAR DC 40,0, 
DENDPICK, 



o 
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COMPUTER 

TECHNOLOGY 



